home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / fb386 / lib / fb386rex / snd_pp.bas < prev    next >
BASIC Source File  |  1994-11-16  |  1KB  |  28 lines
  1. 10 '
  2. 20 '　SND_PP.REX サンプルプログラム
  3. 30 '
  4. 40 CLEAR,,,31000,1024
  5. 50 LOADM "snd_pp.rex",0
  6. 60 DIM SND%(15000)
  7. 70 LOAD@ "hajima_f.snd",SND%
  8. 80 '
  9. 90 PLAY OFF
  10. 100 PRINT"ステレオ疑似音声多重（８音同時）サウンド"
  11. 110 CALLM 0 ,60,120, 64,VARPTR(SND%(0))  '音程=60  大きさ=120  位置=中央
  12. 120 CALLM 0 ,59,110,  0,VARPTR(SND%(0))  '音程=59  大きさ=110  位置=左
  13. 130 CALLM 0 ,59,100,127,VARPTR(SND%(0))  '音程=59  大きさ=100  位置=右
  14. 140 CALLM 0 ,61, 90, 30,VARPTR(SND%(0))  '音程=61  大きさ= 90  位置=左小
  15. 150 CALLM 0 ,61, 80, 97,VARPTR(SND%(0))  '音程=61  大きさ= 80  位置=右小
  16. 160 CALLM 0 ,62, 80,  0,VARPTR(SND%(0))  '音程=62  大きさ= 80  位置=左
  17. 170 CALLM 0 ,63, 80,127,VARPTR(SND%(0))  '音程=63  大きさ= 80  位置=右
  18. 180 CALLM 0 ,43, 80, 64,VARPTR(SND%(0))  '音程=43  大きさ= 80  位置=中央
  19. 190 '
  20. 200 WAIT 300
  21. 210 PRINT"連鎖サウンド"
  22. 220 FOR I&=0 TO 40
  23. 230   PAN&=RND*127                            '位置はランダムで決める
  24. 240   CALLM 0 ,I&+40,127,PAN&,VARPTR(SND%(0)) '発声
  25. 250   WAIT 85-I&*2                            '適当な時間
  26. 260 NEXT
  27. 270 END
  28.